home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / mitt.dir / 00078_Script_78 < prev    next >
Text File  |  1997-09-29  |  930b  |  40 lines
  1. on exitFrame
  2.   global tempUser,tempCountry
  3.   
  4.   global gMONME,gMONMEmin
  5.   set gMONME = 1
  6.   set gMONMEmin = 1
  7.   
  8.   global gameList,REgameList
  9.   global mittList,REmittList
  10.   
  11.   global gMODE
  12.   if gMODE = "game" then
  13.     set gameList = value(string(mittList))
  14.     set REgameList = value(string(REmittList))
  15.   else
  16.     global UsermonNum
  17.     set gameList = IndTraning (tempUser,1,UsermonNum)
  18.     set REgameList = []
  19.     repeat with i=1 to UsermonNum
  20.       add REgameList,3
  21.     end repeat
  22.   end if
  23.   
  24.   global gSOMON
  25.   global SETTEI
  26.   
  27.   if GetAt(SETTEI ,1) = 0 then
  28.     put 0 into gSOMON
  29.     repeat with i=1 to count(REgameList)
  30.       if (getAt (REgameList,i)) = 0 or (getAt (REgameList,i)) = 3 then put gSOMON + 1 into gSOMON
  31.     end repeat
  32.   else
  33.     put (count(gameList))/3 into gSOMON
  34.   end if
  35.   put gSOMON into field "馗ñれî"
  36.   
  37.   put (count(gameList))/3 into SOMON
  38.   qRAND SOMON,SOMON
  39.   
  40. end